#!/usr/bin/perl
$start = 0;
$end = 20.00;
$label = $ARGV[0];

@freqIncs = (
	     0.0, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09,
	     0.1,0.11,0.12,0.13,0.14,0.15,0.16,0.17,
	     0.2,0.25,0.225,0.275,
	     0.3,0.35,0.325,0.375,
	     0.4,0.45,0.46,0.47,0.48,0.49,
	     0.5,0.6,0.7,
	     0.8,0.81,0.82,0.83,0.84,0.85,0.86,0.87,0.88,
	     0.9,0.92,0.94,0.96,0.98
	     );


$i=1;
foreach $deltafreq (@freqIncs) { 
    $freq1=0.0+$deltafreq;
    $freq2=1.0+$deltafreq;
    $freq3=2.0+$deltafreq;
    $freq4=3.0+$deltafreq;
    $freq5=4.0+$deltafreq;
    $freq6=5.0+$deltafreq;
    $freq7=6.0+$deltafreq;
    $freq8=7.0+$deltafreq;
    print "## $i\n";
    print "perl GENoffsets.pl $start $end $freq1 $freq2 $freq3 $freq4 $freq5 $freq6 $freq7 $freq8 \n";
    print "mv OUTphases.dat OUTphases_${label}${i}.dat\n";
    $i++;
}
